home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 2 / Macwelt DVD 2.cdr / Audio-Video-Multimedia / macos9 / Athena CL 1.0.13 / libATH / ATHorc.py / ATHorc.py
Encoding:
Text File  |  2002-03-15  |  43.3 KB  |  1,176 lines  |  [TEXT/Pyth]
  1. # ATHorc.py
  2. #-----------------------------------------------------------------||||||||||||--
  3. # Copyright (c) 2001 Christopher Ariza.
  4. # 
  5. # athenaCL comes with ABSOLUTELY NO WARRANTY;
  6. # for details see waranty information within athenaObj.py.
  7. # This is free software, and you are welcome to redistribute it under certain  
  8. # conditions; for details see copyright information within athenaObj.py.
  9. #-----------------------------------------------------------------||||||||||||--
  10.  
  11. import time
  12.  
  13. #-----------------------------------------------------------------||||||||||||--
  14. # this file is a combination of orc.py and ATHorc.orc
  15. # rather than use a built score, now scores are dynamically create
  16. # from version 1.0.11 on.
  17.  
  18.  
  19. class orcBuilder:
  20.    instrNumbers = (2,3,4,5,6,7,9,10,11,12,13,20,21,22,30,40)
  21.  
  22.    orcTitle = ';' + ('-'*65) + ('|'*12) + ('-'*2) + '\n' + ';athenaCL orchestra\n'
  23.    orcTitle = orcTitle + ';www.flexatone.com/athenaCL\n'
  24.    orcTitle = orcTitle + ';orchestra created on: %r\n' % time.asctime(time.localtime(time.time()))
  25.    orcTitle = orcTitle + ';' + ('-'*65) + ('|'*12) + ('-'*2) + '\n' + ';athenaCL orchestra\n'
  26.  
  27.    orcHeaderMono = '''
  28. sr     = 44100
  29. kr     = 4410
  30. ksmps  = 10
  31. nchnls = 1
  32. '''
  33.    orcHeaderStereo = '''
  34. sr     = 44100
  35. kr     = 4410
  36. ksmps  = 10
  37. nchnls = 2
  38. '''
  39.    orcHeaderQuad = '''
  40. sr     = 44100
  41. kr     = 4410
  42. ksmps  = 10
  43. nchnls = 4
  44. '''
  45.    scoFtables = '''
  46. ;f-tables
  47.    f1  0 4096  10 1                                         ; sine wave
  48.    f2  0 1025   5 1 1024 .002                               ; risset bell
  49.    f3  0 16384 10 1                                         ; risset bell
  50.    f4  0 2048  10 1 .5 .3 .25 .2 .167 .14 .125 .111         ; Sawtooth 
  51.    f5  0 2048  10 1 0  .3  0   .2  0  .14  0   .111         ; Square
  52.    f6  0 2048  10 1 1 1 1 .7 .5 .3 .1                       ; Pulse
  53.    f7  0 2048  19 .5 1 270 1                                ; sigmoid rise
  54.    f8  0 4097  7 0 100 .1 300 3 600 1 3000 .01 96 0         ; buzz f-card
  55.    f9  0 256   10 1                                         ; low rez sine
  56.    f13 0 1024  8 -.8 42 -.78  400 -.7 140 .7  400 .78 42 .8 ; distortion table
  57.  
  58. ;f-tables--i20
  59.    ;exponentially decaying amplitude envelope for carrier signal
  60.    f201      0       512     5       1   512  .001     
  61.    ;amplitude envelope for frequency modulation    
  62.    f202      0       512     7       1   64    0    448  0  
  63.    ;waveform of carrier signal   
  64.    f203      0       512     9       1   1     0            
  65.  
  66. ;f-tables--i21
  67.    f210 0  512  10  1                            ; carriers
  68.    f211 0 1024  5  .0001 200 1 674 1 150 .0001   ; amplitude envelope
  69.    f212 0 1024  5  1 1024 .0001                  ; index envelope
  70.  
  71. ;f-tables--i22
  72.    f231 0 512 7   1  64  0   448  0              ; index envelope
  73.    f251 0 513 5  .8  113 1   10   1 390 .0001    ; amplitude envelope
  74. '''
  75.  
  76.  
  77.    # instrObjDict is built for each command: bad?!
  78.    def constructOrc(self, noChannels=2):
  79.       self.orc = self.orcTitle
  80.       self.noChannels = noChannels
  81.       if self.noChannels   == 1:
  82.          self.orc  = self.orc  + self.orcHeaderMono
  83.       elif self.noChannels == 2:
  84.          self.orc  = self.orc  + self.orcHeaderStereo
  85.       elif self.noChannels == 4:
  86.          self.orc  = self.orc  + self.orcHeaderQuad
  87.       self.instrObjDict = {}
  88.       for number in self.instrNumbers:
  89.          self.instrObjDict[('i%i' % number)] = eval(('instr%i()' % number))
  90.          instrObj = self.instrObjDict[('i%i' % number)]
  91.          self.orc = self.orc + instrObj.buildInstrDef(noChannels)
  92.       return self.orc
  93.  
  94.    def clearOrc(self, noChannels):
  95.       if self.instrObjDict:
  96.          del self.instrObjDict
  97.  
  98.    def getInstrInfo(self):
  99.       'returns a dictionary of instrNo : (Name, pNo)'
  100.       self.instrObjDict = {}
  101.       instInfoDict = {}
  102.       for number in self.instrNumbers:
  103.          self.instrObjDict[('i%i' % number)] = eval(('instr%i()' % number))
  104.          instrObj = self.instrObjDict[('i%i' % number)]
  105.          instInfoDict[number] = (instrObj.name, instrObj.pmtrFields)
  106.       return instInfoDict
  107.  
  108.    def getInstrPreset(self, iNo):
  109.       'returns a dictionary of default values'
  110.       instrObject = eval(('instr%i()' % iNo))
  111.       presetDict = instrObject.getPresetDict()
  112.       return presetDict
  113.  
  114.    def getInstrName(self, iNo):
  115.       'returns a dictionary of default values'
  116.       instrObject = eval(('instr%i()' % iNo))
  117.       return instrObject.name
  118.  
  119. #-----------------------------------------------------------------||||||||||||--
  120. class instrShell:
  121.    # outputs expect and instrument to have a single final signal, calld "aMixSig
  122.    # this bit of codes gets appended to end of inst def
  123.    monoOutput = '''
  124.    ;--stereo panning around 90 degrees
  125.    out             aMixSig
  126.    endin
  127. '''
  128.    stereoOutput = '''
  129.    ;--stereo panning around 90 degrees
  130.    iCirclePan      = 90.0 * ipan         ; scale 90 with values from 0 to 1
  131.    kdegree         line      iCirclePan, p3, iCirclePan
  132.    kdistance       line      1, p3, 1    ; used to distance reverb, need a constant 1
  133.    asig1, asig2    locsig    aMixSig, kdegree, kdistance, 0.0
  134.    outs            asig1, asig2
  135.    endin
  136. '''
  137.    quadOutput = '''
  138.    ;--quad panning around 360 degrees
  139.    iCirclePan                  = 360.0 * ipan         ; scale 90 with values from 0 to 1
  140.    kdegree                     line      iCirclePan, p3, iCirclePan
  141.    kdistance                   line      1, p3, 1    ; used to distance reverb, need a constant 1
  142.    asig1, asig2, asig3, asig4  locsig    aMixSig, kdegree, kdistance, 0.0
  143.    outq                        asig1, asig2, asig3, asig4
  144.    endin
  145. '''
  146.    # defined in each sub-classed instrument
  147.    #inumber     = 12
  148.    #name       = 'noiseFiltered'
  149.    #info       = 'A noisy instrument with with a filter.'
  150.    #pmtrFields = 8 # this is the base number
  151.    #pmtrInfo   = {} # holds discription, preset for each pmtr in a dictionary
  152.    #author     = '' # attribution
  153.    #orcCode = ''
  154.    #scoSample ''
  155.  
  156.    def __init__(self):
  157.       pass
  158.  
  159.    def getInstrHeader(self):
  160.       return '\n;--||||||||||||--i%i--%s' % (self.inumber, self.name)
  161.  
  162.    def buildInstrDef(self, noChannels):
  163.       'returns a string of all the code needed for this instrument'
  164.       orcString = self.getInstrHeader()
  165.       orcString = orcString + self.orcCode
  166.       self.noChannels = noChannels
  167.       if self.noChannels   == 1:
  168.          orcString = orcString + self.monoOutput
  169.       elif self.noChannels == 2:
  170.          orcString = orcString + self.stereoOutput
  171.       elif self.noChannels == 4:
  172.          orcString = orcString + self.quadOutput
  173.       return orcString
  174.  
  175.    def getPresetDict(self):
  176.       presetDict = {}
  177.       # some fixed values:
  178.       presetDict['fieldQ'] = ('basketGen', 'orderedCyclic', [0])
  179.       presetDict['auxQ']   = (0,) # an empty tuple is default aux value
  180.  
  181.       # get values from self.default
  182.       auxDict = {}
  183.       for key in self.default.keys(): # isolate pmtr fields
  184.          if key[:4] == 'pmtr': # rename pmtr keys to a single auxQ list of entries
  185.             newKey  = key[4:] # this is the number as pmtr field
  186.             newKey  = eval(newKey) - (self.pmtrFields + 1) # make pmtr7 == aux0
  187.             auxDict[newKey] = self.default[key]
  188.          else:
  189.             presetDict[key] = self.default[key]
  190.       auxKeyList = auxDict.keys() # get numbers
  191.       if self.pmtrFields > 6: # 6 is standard size
  192.          auxKeyList.sort()
  193.          auxQ = [] # pack all into a list
  194.          for keyNo in auxKeyList: # gets number in order
  195.             auxQ.append(auxDict[keyNo])
  196.          presetDict['auxQ'] = auxQ
  197.       return presetDict
  198.  
  199. #-----------------------------------------------------------------||||||||||||--
  200. #-----------------------------------------------------------------||||||||||||--
  201. # these classes inherit all functions from instrShell
  202.  
  203.  
  204.  
  205. #-----------------------------------------------------------------||||||||||||--
  206. class instr2(instrShell):
  207.    inumber    = 2
  208.    name       = 'additiveBellBright'
  209.    info       = 'A simple bell made with 12 partials, each with their own envelope, then mixed together. Based on design by C. Risset.'
  210.    pmtrFields = 6  # this is the base number
  211.    pmtrInfo   = {} # infor for aux perameters (greater than six)
  212.    default    = {
  213.                  'rhythmQ' : ((16, 1), (16, 3)),        #(division1, #), (division2, #)
  214.                  'octQ'    : ([7,8], 'randomChoice'),              #([list of registers], 0=random/1=ordered) (8.00 = C4)
  215.                  'ampQ'    : (60,70, 1, 'linearUp'),            #lowest, highest, increment (in db), direction
  216.                  'panQ'    : (.20, .80, .08, 'linearDown'),        #lowest, highest(1 max), increment, direction
  217.                 } 
  218.    author     = '' # attribution
  219.    orcCode = '''
  220. instr 2
  221.    ipan   = p6
  222.    idur1  = p3
  223.    iamp1  = ampdb(p4)
  224.    ifreq1 = (cpspch(p5) * .56)
  225.    idur2  = (p3 * .9)
  226.    iamp2  = (ampdb(p4) * .67)
  227.    ifreq2 = (cpspch(p5))
  228.    idur3  = (p3 * .65)
  229.    iamp3  = (ampdb(p4))
  230.    ifreq3 = (cpspch(p5) * .92)
  231.    idur4  = (p3 * .55)
  232.    iamp4  = (ampdb(p4)  * 1.8)
  233.    ifreq4 = (cpspch(p5) * 2.62)        
  234.    idur5  = (p3 * .35)
  235.    iamp5  = (ampdb(p4)  * 2.67)
  236.    ifreq5 = (cpspch(p5) * 1.19)
  237.    idur6  = (p3 * .35)
  238.    iamp6  = (ampdb(p4)  * 1.67)
  239.    ifreq6 = (cpspch(p5) * 1.7)
  240.    idur7  = (p3 * .25)
  241.    iamp7  = (ampdb(p4)  * 1.46)
  242.    ifreq7 = (cpspch(p5) * 2)
  243.    idur8  = (p3 * .2)
  244.    iamp8  = (ampdb(p4)  * 1.33)
  245.    ifreq8 = (cpspch(p5) * 2.74)
  246.    idur9  = (p3 * .15)
  247.    iamp9  = (ampdb(p4)  * 1.33)
  248.    ifreq9 = (cpspch(p5) * 3)
  249.    idur10 = (p3 * .1)
  250.    iamp10 = (ampdb(p4))
  251.    ifreq10= (cpspch(p5) * 3.76)
  252.    idur11 = (p3 * .075)
  253.    iamp11 = (ampdb(p4)  * 1.33)
  254.    ifreq11= (cpspch(p5) * 4.07)
  255.    
  256.       ;create oscilators for each partial
  257.    koscil1 oscil1i    0, iamp1, idur1, 2
  258.    aoscili1 oscili    koscil1, ifreq1, 3
  259.    koscil2 oscil1i    0, iamp2, idur2, 2
  260.    aoscili2 oscili    koscil2, ifreq2, 3
  261.    koscil3 oscil1i    0, iamp3, idur3, 2
  262.    aoscili3 oscili    koscil3, ifreq3, 3
  263.    koscil4 oscil1i    0, iamp4, idur4, 2
  264.    aoscili4 oscili    koscil4, ifreq4, 3
  265.    koscil5 oscil1i    0, iamp5, idur5, 2
  266.    aoscili5 oscili    koscil5, ifreq5, 3
  267.    koscil6 oscil1i    0, iamp6, idur6, 2
  268.    aoscili6 oscili    koscil6, ifreq6, 3
  269.    koscil7 oscil1i    0, iamp7, idur7, 2
  270.    aoscili7 oscili    koscil7, ifreq7, 3
  271.    koscil8 oscil1i    0, iamp8, idur8, 2
  272.    aoscili8 oscili    koscil8, ifreq8, 3
  273.    koscil9 oscil1i    0, iamp9, idur9, 2
  274.    aoscili9 oscili    koscil9, ifreq9, 3
  275.    koscil10 oscil1i   0, iamp10, idur10, 2
  276.    aoscili10 oscili   koscil10, ifreq10, 3
  277.    koscil11 oscil1i   0, iamp11, idur11, 2
  278.    aoscili11 oscili   koscil11, ifreq11, 3
  279.  
  280.    ;output assignments
  281.    aMixSig         = (aoscili1+aoscili2+aoscili3+aoscili4+aoscili5 + aoscili6+aoscili7+aoscili8+aoscili9+aoscili10+aoscili11)
  282. '''
  283.    scoSample = '''
  284. ;p1    p2    p3     p4    p5      p6
  285. ;inst  start dur    amp   PCH     pan
  286. i2    12.00 1.000  97    7.09   .5
  287. i2    12.10 1.000  84    8.09   .5
  288. '''
  289.  
  290. #-----------------------------------------------------------------||||||||||||--
  291. class instr3(instrShell):
  292.    inumber     = 3
  293.    name       = 'sineWaveDrone'
  294.    info       = 'A simple sine wave drone.'
  295.    pmtrFields = 6 # total number
  296.    pmtrInfo   = {} # holds discription, preset for each pmtr in a dictionary
  297.    default    = {
  298.                  'rhythmQ' : ((4, 5), (4, 5)),
  299.                  'octQ'    : ([7,8],   'randomChoice'),
  300.                  'ampQ'    : (60,70, 1, 'linearUp') ,
  301.                  'panQ'    : (.60, 1.0, .08, 'linearDown'),
  302.                 } 
  303.    author     = 'athenaCL native' # attribution
  304.    orcCode = '''
  305. instr 3
  306.    idur  = p3
  307.    iamp  = ampdb(p4)
  308.    ifreq = cpspch(p5)
  309.    ipan  = p6
  310.    
  311.    ;generate aplitude envelope
  312.    ;             amp   attack        dur    release
  313.    k1   linen   iamp,  (idur * .18), idur,  (idur*.19)
  314.    
  315.    ;generate vibrato envelope                       
  316.    irel  = 1.00                   ; set vibrato release time
  317.    idel1 = idur-(.25 * idur)      ; calculate initial delay (% of dur)
  318.    isus  = idur - (idel1 - irel)  ; calculate remaining duration                       
  319.    idep  = 2                 ; vibrato depth (1-9 are good)
  320.    irat  = 1                 ; vibrato rate  (1-9 are good)
  321.    ;                    
  322.    ;linseg does delay, osicl does vibrato, k4 uses pulse wave             
  323.    k3 linseg  0, idel1, idep, isus, idep, irel, 0  
  324.    k2 oscil   k3, irat, 1
  325.    k4 oscil   k3, (irat * .666), 6
  326.    
  327.    ;generate oscilator using k1, add vibrato w/k2, k4
  328.    ;            amp       freq                  waveshape
  329.    a1   oscil   k1,       (ifreq + k2),               1      
  330.    a2   oscil  (k1 * .8), ((ifreq * .5) + (k4 * .5)), 1
  331.    
  332.    aMixSig         = (a1 + a2)
  333. '''
  334.    scoSample = '''
  335. ;p1   p2     p3     p4   p5    p6
  336. ;inst start  dur    amp  PCH  pan
  337. i3    68.00 00.500 95   5.08  .5
  338. i3    68.66 00.500 75   6.11  .5
  339. '''
  340.  
  341. #-----------------------------------------------------------------||||||||||||--
  342. class instr4(instrShell):
  343.    inumber     = 4
  344.    name       = 'additiveBellDark'
  345.    info       = 'A simple bell made with 12 partials, each with their own envelope, then mixed together. Based on design by C. Risset.'
  346.    pmtrFields = 6 # this is the base number
  347.    pmtrInfo   = {} # holds discription, preset for each pmtr in a dictionary
  348.    default    = {
  349.                  'rhythmQ' : ((4, 5), (4, 5)),
  350.                  'octQ'    : ([7,8], 'randomChoice'),
  351.                  'ampQ'    : (60,70, 1, 'linearUp') ,
  352.                  'panQ'    : (.60, 1.0, .08, 'linearDown'),
  353.                 } 
  354.    author     = '' # attribution
  355.    orcCode = '''
  356. ; "INSTRUMENT 4, bell"
  357. instr 4
  358.    ipan   = p6
  359.    idur1  = (p3 * .5)
  360.    iamp1  = (ampdb(p4)  * .5)
  361.    ifreq1 = (cpspch(p5) * .2)
  362.    idur2  = (p3 * .5)
  363.    iamp2  = (ampdb(p4)  * .7)
  364.    ifreq2 = (cpspch(p5) * .5)
  365.    idur3  = (p3 * .5)
  366.    iamp3  = (ampdb(p4)  * 1)
  367.    ifreq3 = (cpspch(p5) * .8)
  368.    idur4  = (p3 * .6)
  369.    iamp4  = (ampdb(p4)  * 1.2)
  370.    ifreq4 = (cpspch(p5) * 1)
  371.    idur5  = (p3 * .7)
  372.    iamp5  = (ampdb(p4)  * 1.5)
  373.    ifreq5 = (cpspch(p5) * 1.2)
  374.    idur6  = (p3 * 1.2)
  375.    iamp6  = (ampdb(p4)  * 1.5)
  376.    ifreq6 = (cpspch(p5) * 1.5)
  377.    idur7  = (p3 * 1.2)
  378.    iamp7  = (ampdb(p4)  * 1.6)
  379.    ifreq7 = (cpspch(p5) * 2)
  380.    idur8  = (p3 * 1.2)
  381.    iamp8  = (ampdb(p4)  * 1.7)
  382.    ifreq8 = (cpspch(p5) * 3)
  383.    idur9  = (p3 * 1.3)
  384.    iamp9  = (ampdb(p4)  * 1.8)
  385.    ifreq9 = (cpspch(p5) * 3)
  386.    idur10 = (p3 * 1.4)
  387.    iamp10 = (ampdb(p4)  * 1.9)
  388.    ifreq10= (cpspch(p5) * 4.5)
  389.    idur11 = (p3 * 1.5)
  390.    iamp11 = (ampdb(p4)  * 2)
  391.    ifreq11= (cpspch(p5) * 4.8)
  392.    
  393.    koscil1 oscil1i   0, iamp1, idur1, 2
  394.    aoscili1 oscili   koscil1, ifreq1, 3
  395.    koscil2 oscil1i   0, iamp2, idur2, 2
  396.    aoscili2 oscili   koscil2, ifreq2, 3
  397.    koscil3 oscil1i   0, iamp3, idur3, 2
  398.    aoscili3 oscili   koscil3, ifreq3, 3
  399.    koscil4 oscil1i   0, iamp4, idur4, 2
  400.    aoscili4 oscili   koscil4, ifreq4, 3
  401.    koscil5 oscil1i   0, iamp5, idur5, 2
  402.    aoscili5 oscili   koscil5, ifreq5, 3
  403.    koscil6 oscil1i   0, iamp6, idur6, 2
  404.    aoscili6 oscili   koscil6, ifreq6, 3
  405.    koscil7 oscil1i   0, iamp7, idur7, 2
  406.    aoscili7 oscili   koscil7, ifreq7, 3
  407.    koscil8 oscil1i   0, iamp8, idur8, 2
  408.    aoscili8 oscili   koscil8, ifreq8, 3
  409.    koscil9 oscil1i   0, iamp9, idur9, 2
  410.    aoscili9 oscili   koscil9, ifreq9, 3
  411.    koscil10 oscil1i   0, iamp10, idur10, 2
  412.    aoscili10 oscili   koscil10, ifreq10, 3
  413.    koscil11 oscil1i   0, iamp11, idur11, 2
  414.    aoscili11 oscili   koscil11, ifreq11, 3
  415.  
  416.    aMixSig         = (aoscili1+aoscili2+aoscili3+aoscili4+aoscili5 + aoscili6+aoscili7+aoscili8+aoscili9+aoscili10+aoscili11)
  417. '''
  418.    scoSample = '''
  419. ;p1    p2    p3     p4    p5      p6
  420. ;inst  start dur    amp   PCH     pan
  421. i2    12.00 1.000  97    7.09   .5
  422. i2    12.10 1.000  84    8.09   .5
  423.  
  424. '''
  425.  
  426. #-----------------------------------------------------------------||||||||||||--
  427. class instr5(instrShell):
  428.    inumber     = 5
  429.    name       = 'sawWaveDrone'
  430.    info       = 'A simple bell made with 12 partials, each with their own envelope, then mixed together. Based on design by C. Risset.'
  431.    pmtrFields = 6  # total
  432.    pmtrInfo   = {} # holds discription, preset for each pmtr in a dictionary
  433.    default    = {
  434.                  'rhythmQ' : ((2, 4), (2, 1)), 
  435.                  'octQ'    : ([7,8], 'randomChoice'),
  436.                  'ampQ'    : (60,70, 2, 'linearUpDown'),
  437.                  'panQ'    : (.20, .60, .08, 'linearDown'), 
  438.                 } 
  439.    author     = '' # attribution
  440.    orcCode = '''
  441. instr 5
  442.    idur  = p3
  443.    iamp  = ampdb(p4)
  444.    ifreq = cpspch(p5)
  445.    ipan  = p6
  446.    
  447.    ;generate aplitude envelope
  448.    ;          amp    attack       dur   release
  449.    k1 linen   iamp, (idur * .18), idur, (idur *.19)
  450.    
  451.    ;generate vibrato envelope                       
  452.    irel  = 1.00                   ; set vibrato release time
  453.    idel1 = idur - (.25 * idur)    ; calculate initial delay (% of dur)
  454.    isus  = idur - (idel1 - irel)  ; calculate remaining duration                       
  455.    idep  = 2                      ; vibrato depth (1-9 are good)
  456.    irat  = 1                      ; vibrato rate  (1-9 are good)
  457.    ;                    
  458.    ;linseg does delay, osicl does vibrato, k4 uses pulse wave             
  459.    k3 linseg  0, idel1, idep, isus, idep, irel, 0  
  460.    k2 oscil   k3, irat,        1
  461.    k4 oscil   k3, (irat*.666), 6
  462.    
  463.    ;generate oscilator using k1, add vibrato w/k2, k4
  464.    ;          amp     freq                   waveshape
  465.    a1 oscil   k1,     (ifreq + k2),              4      
  466.    a2 oscil  (k1*.8), ((ifreq * .5) + (k4 *.5)), 1
  467.  
  468.    aMixSig         = (a1+a2)
  469. '''
  470.    scoSample = '''
  471. ;p1    p2    p3     p4    p5      p6
  472. inst  start dur    amp   PCH     pan
  473. i5    12.00 1.000  95    7.09   .5
  474. i5    12.10 1.000  84    8.09   .5
  475. '''
  476.  
  477. #-----------------------------------------------------------------||||||||||||--
  478. class instr6(instrShell):
  479.    inumber     = 6
  480.    name       = 'pluckFormant'
  481.    info       = 'A pluck that slowly morphs into a vocal, formant derived sound.'
  482.    pmtrFields = 16 # this is the base number
  483.    pmtrInfo   = {
  484.                  'pmtr7'   : 'ipluckamp, % of total amp, 1=dB amp as in p4',
  485.                  'pmtr8'   : 'ipluckdur, % of total dur, 1=entire dur of note',
  486.                  'pmtr9'   : 'ifmamp, % of total amp, 1=dB amp as in p4', 
  487.                  'pmtr10'  : 'ifmrise, % of total dur, 1=entire dur of note', 
  488.                  'pmtr11'  : 'ifmdec, % of total duration', 
  489.                  'pmtr12'  : 'index',   
  490.                  'pmtr13'  : 'ivibdepth',  
  491.                  'pmtr14'  : 'ivibrate',
  492.                  'pmtr15'  : 'iformantamp',  
  493.                  'pmtr16'  : 'iformantrise',   
  494.                 } # holds discription, preset for each pmtr in a dictionary
  495.    default    = {
  496.                  'rhythmQ' : ((2, 3), (2, 9)), 
  497.                  'octQ'    : ([7,8],   'randomChoice'),
  498.                  'ampQ'    : (60,70, 4, 'linearDown') ,
  499.                  'panQ'    : (.30, .70, .08, 'linearDown'), 
  500.                  'pmtr7'   : (.8, .9, .05, 'linearUp'),
  501.                  'pmtr8'   : (.2, .4, .05, 'linearUp'),
  502.                  'pmtr9'   : (.7, .8, .05, 'linearUp'), 
  503.                  'pmtr10'  : (.2, .35, .05, 'linearUp'), 
  504.                  'pmtr11'  : (.3, .40, .05, 'linearUp'), 
  505.                  'pmtr12'  : (6, 8, 1, 'linearUpDown'),   
  506.                  'pmtr13'  : (1, 1, 0, 'linearUpDown'),  
  507.                  'pmtr14'  : (4, 6, 1, 'linearUp'),
  508.                  'pmtr15'  : (3, 3, 0, 'linearUpDown'),  
  509.                  'pmtr16'  : (.5, .8, .1, 'linearUp'),   
  510.                 } 
  511.    author     = '' # attribution
  512.    orcCode = '''
  513. instr 6                         
  514.    iamp         = ampdb(p4) / 2  ; amplitude, scaled for two sources
  515.    ifreq        = cpspch(p5)
  516.    
  517.    ipan         = p6  
  518.    ipluckamp    = p7              ; % of total amp, 1=dB amp as in p4
  519.    ipluckdur    = p8 * p3         ; % of total dur, 1=entire dur of note
  520.    ipluckoff    = p3 - ipluckdur
  521.    
  522.    ifmamp       = p9               ; % of total amp, 1=dB amp as in p4
  523.    ifmrise      = p10 * p3         ; % of total dur, 1=entire dur of note
  524.    ifmdec       = p11 * p3         ; % of total duration
  525.    ifmoff       = p3 - (ifmrise + ifmdec)
  526.    index        = p12
  527.    ivibdepth    = p13
  528.    ivibrate     = p14
  529.    iformantamp  = p15            ; % of total amp, 1=dB amp as in p4
  530.    iformantrise = p16 * p3       ; % of total dur, 1=entire dur of note
  531.    iformantdec  = p3 - iformantrise
  532.    
  533.    kpluck       linseg    ipluckamp, ipluckdur, 0, ipluckoff, 0
  534.    apluck1      pluck     iamp, ifreq, ifreq, 0, 1
  535.    apluck2      pluck     iamp, ifreq * 1.003, ifreq * 1.003, 0, 1
  536.    apluck       =         kpluck * (apluck1+apluck2)
  537.    
  538.    kfm          linseg    0, ifmrise, ifmamp, ifmdec, 0, ifmoff, 0
  539.    kndx         =         kfm * index
  540.    afm1         foscil    iamp, ifreq, 1, 7, kndx, 1
  541.    afm2         foscil    iamp, ifreq * 1.003, 1.003, 2.003, kndx, 1
  542.    afm          =         kfm * (afm1+afm2)
  543.    
  544.    kfrmnt       linseg    0, iformantrise, iformantamp, iformantdec, 0
  545.    kvib         oscil     ivibdepth, ivibrate, 1
  546.    afrmnt1      fof       iamp, ifreq + kvib, 650, 0, 40, .003, .017, .007, 4, 1, 7, p3
  547.    afrmnt2      fof       iamp, (ifreq*1.001)+kvib*.009, 650, 0, 40, .003,.017,.007, 10,1,7,p3
  548.    aformnt      =         kfrmnt * (afrmnt1+afrmnt2)
  549.  
  550.    aMixSig         = (apluck + afm + aformnt)
  551. '''
  552.    scoSample = '''
  553.                             ;values b/n 0 & 1.
  554.                             ;p6    p7    p8  p9   p10    p11  p12  p13   p14  p15   p16      
  555. ;ins st    dr   amp   PCH    pan   plkmp plkdr fmp fmris fmdec indx vbdp vbrt frmp fris
  556. i13 52.11  4    80   7.09  .5     .8   .3   .7   .2   .35    8   1   5   3   .5
  557. i13 53.44  4    80   7.09  .5     .8   .4   .7   .35  .35    7   1   6   3   .7
  558. i13 54.77  6    80   7.09  .5     .8   .3   .7   .2   .4     6   1   4   3   .6
  559. i13 56.00  8    80   7.09  .5     .8   .3   .7   .2   .4     6   1   5   3   .6
  560. '''
  561.  
  562. #-----------------------------------------------------------------||||||||||||--
  563. class instr7(instrShell):
  564.    inumber    = 7
  565.    name       = 'waveformVibrato'
  566.    info       = 'A waveform derived instrument that has vibrato controls.'
  567.    pmtrFields = 14 # total
  568.    pmtrInfo   = {
  569.                  'pmtr7'   : 'attack',
  570.                  'pmtr8'   : 'release rate',
  571.                  'pmtr9'   : 'vibrato depth',
  572.                  'pmtr10'  : 'vibrato delay',
  573.                  'pmtr11'  : 'vibrato fq',
  574.                  'pmtr12'  : 'start',
  575.                  'pmtr13'  : 'end',
  576.                  'pmtr14'  : 'xtime',
  577.                 } # holds discription, preset for each pmtr in a dictionary
  578.    default    = {
  579.                  'rhythmQ' : ((9, 6), (9, 2)), 
  580.                  'octQ'    : ([7,8],   'randomChoice'),
  581.                  'ampQ'    : (60,70, 4, 'linearDown') ,
  582.                  'panQ'    : (.30, .70, .08, 'linearDown'), 
  583.                  'pmtr7'   : (1, 4, 1, 'linearUp'),     
  584.                  'pmtr8'   : (2, 3, 1, 'linearUp'),    
  585.                  'pmtr9'   : (2, 4, 1, 'linearUp'),     
  586.                  'pmtr10'  : (2, 4, 1, 'linearUp'),       
  587.                  'pmtr11'  : (.2, 2, .1, 'linearUpDown'), 
  588.                  'pmtr12'  : (1, 6, 1, 'linearUpDown'),   
  589.                  'pmtr13'  : (1, 5, 1, 'linearUpDown'),   
  590.                  'pmtr14'  : (.6, .8, .01, 'linearUp'),  
  591.                 } 
  592.    author     = '' # attribution
  593.    orcCode = '''
  594. instr 7  
  595.    ipan   = p6
  596.                           
  597.    ifunc1 = p12                    ; initial waveform
  598.    ifunc2 = p13                    ; crossfade waveform
  599.    ifad1  = p3 - (p14 * p3)        ; calculate initial fade
  600.    ifad2  = p3 - ifad1             ; calculate remaining dur
  601.    irel   = .1                     ; set vibrato release
  602.    idel1  = p3 - (p11 * p3)        ; calculate initial delay
  603.    isus   = p3 - (idel1- irel)     ; calculate remaining dur
  604.    iamp   = ampdb(p4)
  605.    iscale = iamp * .166                              ; p4=amp
  606.    inote  = cpspch(p5)                               ; p5=freq
  607.    
  608.    k3  linseg    0, idel1, p10, isus, p10, irel, 0    ; p7=attack time
  609.    k2  oscil     k3, p9, 1                          ; p7=release time
  610.    k1  linen     iscale, p7, p3, p8                 ; p9=vib rate
  611.    a6  oscil     k1, inote*.5+k2, ifunc2            ; p10=vib depth
  612.    a5  oscil     k1, inote*1.25+k2, ifunc2          ; p11=vib delay (0-1)
  613.    a4  oscil     k1, inote+k2, ifunc2               ; p12=initial wave
  614.    a3  oscil     k1, inote*.997+k2, ifunc1          ; p13=cross wave
  615.    a2  oscil     k1, inote*1.003+k2, ifunc1         ; p14=fade time (0-1)
  616.    a1  oscil     k1, inote+k2, ifunc1   
  617.              
  618.    kfade  linseg 1, ifad1, 0, ifad2, 1
  619.    afunc1 = kfade * (a1+a2+a3)
  620.    afunc2 = (1 - kfade) * (a4+a5+a6)
  621.  
  622.    aMixSig         = (afunc1 + afunc2)
  623. '''
  624.    scoSample = '''
  625.  
  626. ;p1   p2    p3   p4   p5     p6   p7   p8   p9    p10    p11    p12    p13  p14
  627. ;inst start dur  amp  freq   pan  atk  rels vib   vib   vib    start  end  xtime
  628. ;               (dbs) (pch)           rate  depth delay  (f)
  629. i7    53    14   95   8.04  .5   3   3    2     4     .4     1      5    .8 
  630. i7    55    12   95   8.03  .5   2   3    4     3     .4     6      1    .8
  631. '''
  632.  
  633. #-----------------------------------------------------------------||||||||||||--
  634. class instr9(instrShell):
  635.    inumber     = 9
  636.    name       = 'additiveBellClear'
  637.    info       = 'A simple bell made with 12 partials, each with their own envelope, then mixed together. Based on design by C. Risset.'
  638.    pmtrFields = 6 # this is the base number
  639.    pmtrInfo   = {} # holds discription, preset for each pmtr in a dictionary
  640.    default    = {
  641.                  'rhythmQ' : ('loop', ((2,1,1),(2,3,1),(4,3,0))),                    #(division1, #), (division2, #)
  642.                  'octQ'    : ([7,8], 'randomChoice'),             #([list of registers], 0=random/1=ordered) (8.00 = C4)
  643.                  'ampQ'    : (60,70, 1, 'linearUp'),                #lowest, highest, increment (in db), direction
  644.                  'panQ'    : (.20, .80, .08, 'linearDown'),         #lowest, highest(1 max), increment, direction
  645.                 } 
  646.    author     = '' # attribution
  647.    orcCode = '''
  648. instr 9
  649.    ipan   = p6
  650.    
  651.    idur1  = p3
  652.    iamp1  = ampdb(p4)
  653.    ifreq1 = (cpspch(p5) * 1)
  654.    
  655.    idur2  = (p3 * .9)
  656.    iamp2  = (ampdb(p4)  * .80)
  657.    ifreq2 = (cpspch(p5) * 1.5)
  658.    
  659.    idur3  = (p3 * .70)
  660.    iamp3  = (ampdb(p4)  * .70)
  661.    ifreq3 = (cpspch(p5) * 2)
  662.    
  663.    idur4  = (p3 * .60)
  664.    iamp4  = (ampdb(p4)  * .80)
  665.    ifreq4 = (cpspch(p5) * 2.5)        
  666.    
  667.    idur5  = (p3 * .40)
  668.    iamp5  = (ampdb(p4)  * .55)
  669.    ifreq5 = (cpspch(p5) * 3)
  670.    
  671.    idur6  = (p3 * 1.05)
  672.    iamp6  = (ampdb(p4)  * .48)
  673.    ifreq6 = (cpspch(p5) * 4)
  674.    
  675.    idur7  = (p3 * .80)
  676.    iamp7  = (ampdb(p4)  * .40)
  677.    ifreq7 = (cpspch(p5) * 5)
  678.    
  679.    idur8  = (p3 * .65)
  680.    iamp8  = (ampdb(p4)  * .35)
  681.    ifreq8 = (cpspch(p5) * 6)
  682.    
  683.    idur9  = (p3 * .15)
  684.    iamp9  = (ampdb(p4)  * .30)
  685.    ifreq9 = (cpspch(p5) * 7)
  686.    
  687.    idur10 = (p3 * .90)
  688.    iamp10 = (ampdb(p4))
  689.    ifreq10= (cpspch(p5) * 8)
  690.    
  691.    idur11 = (p3 * .10)
  692.    iamp11 = (ampdb(p4)  * .28)
  693.    ifreq11= (cpspch(p5) * 9)
  694.    
  695.       ;create oscilators for each partial
  696.    koscil1 oscil1i    0, iamp1, idur1, 2
  697.    aoscili1 oscili    koscil1, ifreq1, 3
  698.    koscil2 oscil1i    0, iamp2, idur2, 2
  699.    aoscili2 oscili    koscil2, ifreq2, 3
  700.    koscil3 oscil1i    0, iamp3, idur3, 2
  701.    aoscili3 oscili    koscil3, ifreq3, 3
  702.    koscil4 oscil1i    0, iamp4, idur4, 2
  703.    aoscili4 oscili    koscil4, ifreq4, 3
  704.    koscil5 oscil1i    0, iamp5, idur5, 2
  705.    aoscili5 oscili    koscil5, ifreq5, 3
  706.    koscil6 oscil1i    0, iamp6, idur6, 2
  707.    aoscili6 oscili    koscil6, ifreq6, 3
  708.    koscil7 oscil1i    0, iamp7, idur7, 2
  709.    aoscili7 oscili    koscil7, ifreq7, 3
  710.    koscil8 oscil1i    0, iamp8, idur8, 2
  711.    aoscili8 oscili    koscil8, ifreq8, 3
  712.    koscil9 oscil1i    0, iamp9, idur9, 2
  713.    aoscili9 oscili    koscil9, ifreq9, 3
  714.    koscil10 oscil1i   0, iamp10, idur10, 2
  715.    aoscili10 oscili   koscil10, ifreq10, 3
  716.    koscil11 oscil1i   0, iamp11, idur11, 2
  717.    aoscili11 oscili   koscil11, ifreq11, 3
  718.  
  719.    ;output assignments
  720.    aMixSig         = (aoscili1+aoscili2+aoscili3+aoscili4+aoscili5 + aoscili6+aoscili7+aoscili8+aoscili9+aoscili10+aoscili11)
  721. '''
  722.    scoSample = '''
  723.  
  724. ;p1    p2    p3     p4    p5      p6
  725. ;inst  start dur    amp   PCH     pan
  726. i9    12.00 1.000  97    7.09   .5
  727. i9    12.10 1.000  84    8.09   .5
  728. '''
  729. #-----------------------------------------------------------------||||||||||||--
  730. class instr10(instrShell):
  731.    inumber     = 10
  732.    name       = 'tamHats'
  733.    info       = 'Percussive sound somewhere between tam-tam and high-hat.'
  734.    pmtrFields = 8 # this is the base number
  735.    pmtrInfo   = {
  736.                  'pmtr7'   : 'iparm', 
  737.                  'pmtr8'   : 'low pass filter frequency',   
  738.                 } # holds discription, preset for each pmtr in a dictionary
  739.    default    = {
  740.                  'rhythmQ' : ((16, 1), (4, 2)) ,
  741.                  'octQ'    : ([7,8], 'randomChoice'), 
  742.                  'ampQ'    : (60,70, 4, 'linearDown')  ,
  743.                  'panQ'    : (.20, .60, .08, 'linearDown'), 
  744.                  'pmtr7'   : (.1, .9, .1, 'linearUp'), 
  745.                  'pmtr8'   : (800, 16000, 200, 'linearDown'),   
  746.                 } 
  747.    author     = '' # attribution
  748.    orcCode = '''
  749. instr 10
  750.    idur   = p3
  751.    iamp   = ampdb(p4)
  752.    ifrq   = cpspch(p5)
  753.    ipan   = p6
  754.    iparm  = p7
  755.    ilp_fq = p8
  756.    
  757.    k1 linseg    1, (.1*p3), .7, (.5*p3), .7, (.4*p3), 0
  758.    
  759.    ;                 kamp, kcps,        icps, ifn, imeth iparm
  760.    ;                                               decay  0-1,
  761.    a1 pluck     iamp, ifrq,          ifrq,     0,   3,    iparm
  762.    a2 pluck     iamp, (ifrq * .51),  ifrq*.51, 0,   3,    iparm
  763.    a4 pluck     iamp, (ifrq * .24),  ifrq*.24, 0,   3,    iparm
  764.    
  765.    ;master mix
  766.    a3 = ((a1 + a2 + a4) * k1)
  767.    a6 tone a3, ilp_fq
  768.    aMixSig         = (a6 * 2) 
  769. '''
  770.    scoSample = '''
  771. ;ins start  dur   amp   fq    pan  type  low pass  
  772. ;hats                                       fq
  773. i14  0.000  0.100 95  8.02    .1   .6   16000
  774. ;tam tam
  775. i14  3.000  8.000 95  7.10    0    .2   1200
  776. '''
  777.  
  778. #-----------------------------------------------------------------||||||||||||--
  779. class instr11(instrShell):
  780.    inumber     = 11
  781.    name       = 'noise'
  782.    info       = 'A noisy instrument.'
  783.    pmtrFields = 6 # this is the base number
  784.    pmtrInfo   = {} # holds discription, preset for each pmtr in a dictionary
  785.    default    = {
  786.                  'rhythmQ' : ((16, 1), (4, 1)) ,
  787.                  'octQ'    : ([7,8], 'randomChoice'), 
  788.                  'ampQ'    : (60,70, 1, 'linearUp'),
  789.                  'panQ'    : (.20, .80, .08, 'linearUpDown'),   
  790.                 } 
  791.    author     = 'athenaCL native' # attribution
  792.    orcCode = '''
  793. instr 11
  794.    idur   = p3
  795.    iamp   = ampdb(p4)
  796.    iwhite = cpspch(p5)
  797.    ipan   = p6
  798.    a1    rand    iwhite
  799.    k1    linen   iamp, .5, idur, .2
  800.    aMixSig         = (k1 * a1)
  801. '''
  802.    scoSample = '''
  803. '''
  804.  
  805. #-----------------------------------------------------------------||||||||||||--
  806. class instr12(instrShell):
  807.    inumber     = 12
  808.    name       = 'noiseFiltered'
  809.    info       = 'A noisy instrument with with a filter.'
  810.    pmtrFields = 8 # this is the base number
  811.    pmtrInfo   = {
  812.                  'pmtr7'   : 'filter center frequency',
  813.                  'pmtr8'   : 'filter bandwidth',
  814.                 } # holds discription, preset for each pmtr in a dictionary
  815.    default    = {
  816.                  'rhythmQ' : ((16, 1), (16, 5)) ,
  817.                  'octQ'    : ([7,8], 'randomChoice'), 
  818.                  'ampQ'    : (50,60, .5, 'linearDown')  ,
  819.                  'panQ'    : (.20, .60, .08, 'linearDown'), 
  820.                  'pmtr7'   : (400, 800, 20, 'linearUpDown'), 
  821.                  'pmtr8'   : (1, 5, .2, 'linearUpDown'),
  822.                 }
  823.    author     = 'athenaCL native' # attribution
  824.    orcCode = '''
  825. instr 12
  826.    ;duration  = p3
  827.    iamp   = ampdb(p4)
  828.    ifreq  = cpspch(p5)
  829.    ipan   = p6
  830.    ;filter cf  = p7
  831.    ;filter bw  = p8
  832.    
  833.    k1   linen   1,    (p3*.9), p3, (p3*.1)
  834.    
  835.    ;create noise
  836.    ;            amp    freq           
  837.    a1   randi   p4,    p5,             
  838.    
  839.    ;create band pass filter
  840.    ;            signal, filter cf, filter bw         
  841.    a2   reson   a1, p7, p8
  842.  
  843.    aMixSig         = (k1 * a2)
  844. '''
  845.    scoSample = '''
  846. ;ins   strt  dur   amp  fq    pan    fltr   fltr  
  847. ; 56               0-1               cf     bw    
  848. i56   00.0   2.0   .9  10000 .2     440     2    
  849. '''
  850.  
  851. #-----------------------------------------------------------------||||||||||||--
  852. class instr13(instrShell):
  853.    inumber     = 13
  854.    name       = 'rezzySynth'
  855.    info       = 'A highly resonated synth sound.'
  856.    pmtrFields = 9 # this is the base number
  857.    pmtrInfo   = {
  858.                  'pmtr7'   : 'fq sweep (ms time or fq?)',
  859.                  'pmtr8'   : 'irez',
  860.                  'pmtr9'   : 'itabl1 (f-table to choose from)',
  861.                 } # holds discription, preset for each pmtr in a dictionary
  862.    default    = {
  863.                  'rhythmQ' : ('binaryAccent', ((12,1,1),(3,1,1))) ,
  864.                  'octQ'    : ('basketGen', 'randomChoice', (5,6,7)), 
  865.                  'ampQ'    : ('cyclicGen', 'linearDown', 60.00, 76.00, 2.00),
  866.                  'panQ'    : ('cyclicGen', 'linearDown', 0.20, 0.60, 0.08), 
  867.                  'pmtr7'   : ('cyclicGen', 'linearUpDown', 20.00, 8000.00, 40.00),
  868.                  'pmtr8'   : ('cyclicGen', 'linearUpDown', 1.00, 20.00, 1.20),
  869.                  'pmtr9'   : ('cyclicGen', 'linearUpDown', 4, 5, 1),  
  870.                 }
  871.    author     = '' # attribution
  872.    orcCode = '''
  873. instr 13
  874.    idur   = p3
  875.    iamp   = ampdb(p4)
  876.    ifqc   = cpspch(p5)
  877.    ipan   = p6
  878.    
  879.    ; p7 = fq sweep
  880.    irez   = p8
  881.    itabl1 = p9
  882.    
  883.    ; Amplitude envelope
  884.    kaenv  linseg 0, .01, 1, p3-.02, 1, .01, 0
  885.    
  886.    ; Frequency Sweep
  887.    kfco linseg p7, .5*p3, .2*p7, .5*p3, .1*p7
  888.    
  889.    ; This relationship attempts to separate Freq from Res.
  890.    ka1 = 100/irez/sqrt(kfco)-1
  891.    ka2 = 1000/kfco
  892.    
  893.    ; Initialize Yn-1 & Yn-2 to zero
  894.    aynm1 init 0
  895.    aynm2 init 0
  896.    
  897.    ; Oscillator            last number here is the table number
  898.    axn oscil iamp, ifqc, itabl1
  899.    
  900.    ; Replace the differential eq. with a difference eq.
  901.    ayn = ((ka1+2*ka2)*aynm1-ka2*aynm2+axn)/(1+ka1+ka2)
  902.    
  903.    atemp tone axn, kfco
  904.    aclip1 = (ayn-atemp)/100000
  905.    aclip tablei aclip1, 13, 1, .5
  906.    aout = aclip*20000+atemp
  907.    
  908.    aynm2 = aynm1
  909.    aynm1 = ayn
  910.    
  911.    aMixSig = (kaenv*aout)
  912. '''
  913.    scoSample = '''
  914. ;ins start  dur   amp   fq    pan      fq_sweep   irex, itabl1
  915. '''
  916.  
  917. #-----------------------------------------------------------------||||||||||||--
  918. class instr20(instrShell):
  919.    inumber     = 20
  920.    name       = 'fmBasic'
  921.    info       = 'A basic FM instrument.'
  922.    pmtrFields = 8 # this is the base number
  923.    pmtrInfo   = {
  924.                  'pmtr7'   : 'fm factor',
  925.                  'pmtr8'   : 'modulation index',
  926.                 } # holds discription, preset for each pmtr in a dictionary
  927.    default    = {
  928.                  'rhythmQ' : ('binaryAccent', ((7,1,1),(7,5,1))) ,
  929.                  'octQ'    : ('basketGen', 'randomChoice', (7,8)), 
  930.                  'ampQ'    : ('cyclicGen', 'linearDown', 60.00, 76.00, 2.00) ,
  931.                  'panQ'    : ('cyclicGen', 'linearDown', 0.20, 0.60, 0.08), 
  932.                  'pmtr7'   : ('cyclicGen', 'linearUpDown', 0.01, 8.00, 0.10),
  933.                  'pmtr8'   : ('cyclicGen', 'linearUpDown', 1.00, 6.00, 0.10),
  934.                  }
  935.    author     = '"basicfm.orc" from Csound Book examples' # attribution
  936.    orcCode = '''
  937. instr 20
  938.    ipan      =         p6
  939.    iamp      =         ampdb(p4)
  940.    i1        =         1/p3                 ; ONE CYCLE PER DURATION OF NOTE
  941.    i2        =         cpspch(p5)           ; CONVERTS PCHCLASS NOTATION TO Hz
  942.    
  943.    i3        =         i2 * p7          ; i3 IS THE MODULATING FREQUENCY
  944.    i4        =         i3 * p8          ; i4 IS THE MAXIMUM FREQUENCY DEVIATION
  945.    
  946.    ampenv    oscil     iamp,i1,201     ; AMPLITUDE ENVELOPE FOR THE CARRIER
  947.    ampdev    oscil     i4,i1,201       ; ENVELOPE APPLIED TO FREQUENCY DEVIATION
  948.    amod      oscili    ampdev,i3,203              ; MODULATING OSCILLATOR
  949.    asig      oscili    ampenv,i2+amod,203         ; CARRIER OSCILLATOR
  950.  
  951.    aMixSig   = asig
  952.  
  953. '''
  954.    scoSample = '''
  955. ;p1    p2    p3     p4    p5          p6     p7          p8
  956. ;inst  start dur   amp    PCH         pan 
  957. ;      start dur   amp    carrierFQ          fm_factor   mod_index
  958. ;i1      1   5     70     7.06        .5     1           4
  959. ;i1      7   5            7.06        .5     1.414  
  960. '''
  961.  
  962. #-----------------------------------------------------------------||||||||||||--
  963. class instr21(instrShell):
  964.    inumber    = 21
  965.    name       = 'fmClarinet'
  966.    info       = 'A FM instrument tuned to sound clarinet-like.'
  967.    pmtrFields = 7 # this is the base number
  968.    pmtrInfo   = {
  969.                  'pmtr7'   : 'imax value',
  970.                 } # holds discription, preset for each pmtr in a dictionary
  971.    default    = {
  972.                  'rhythmQ' : ('binaryAccent', ((7,3,1),(7,5,1)) ),
  973.                  'octQ'    : ('basketGen', 'randomChoice', (6,7)), 
  974.                  'ampQ'    : ('cyclicGen', 'linearDown', 60.00, 70.00, 1.00) ,
  975.                  'panQ'    : ('cyclicGen', 'linearDown', 0.20, 0.60, 0.08), 
  976.                  'pmtr7'   : ('cyclicGen', 'linearUpDown', 1.50, 6.00, 0.20),
  977.                 }
  978.    author     = '''
  979. FMclarinet.orc from amsterdam catalog
  980. ACCCI:     20_10_4.ORC
  981. synthesis: FM(20),
  982.            FM with dynamic spectral evolution (10)
  983.            clarinet settings(3)
  984. source:    Chowning (1973)
  985. coded:     jpg 8/92
  986. ''' # attribution
  987.    orcCode = '''
  988. instr 21
  989.    idur   = p3
  990.    iamp   = ampdb(p4)
  991.    ifenv  = 211                    ; clarinet settings:
  992.    ifdyn  = 212                    ; amp and index envelope see flow chart
  993.    ifq1   = cpspch(p5)*3          ; N1:N2 is 3:2, imax=5
  994.    if1    = 210                     ; duration ca. .5 sec
  995.    ifq2   = cpspch(p5)*2
  996.    if2    = 210
  997.    imax   = p7
  998.    imin   = 2
  999.    ipan   = p6
  1000.  
  1001.    aenv  oscili   iamp, 1/idur, ifenv                ; envelope
  1002.  
  1003.    adyn  oscili   ifq2*(imax-imin), 1/idur, ifdyn    ; index
  1004.    adyn  =        (ifq2*imin)+adyn                   ; add minimum value
  1005.    amod  oscili   adyn, ifq2, if2                    ; modulator
  1006.  
  1007.    a1    oscili   aenv, ifq1+amod, if1               ; carrier
  1008.  
  1009.    aMixSig         = a1
  1010.  
  1011. '''
  1012.    scoSample = '''
  1013. ;p1    p2    p3     p4    p5     p6     p7   
  1014. ;inst  start dur   amp    PCH    pan 
  1015. ;            idur iamp   pch            imax
  1016. i1    0     .5    75     8.00          4        ; scale by clarinet
  1017. i1    +     .     .      8.02          .
  1018. i1    .     .     .      8.04          .
  1019. '''
  1020.  
  1021. #-----------------------------------------------------------------||||||||||||--
  1022. class instr22(instrShell):
  1023.    inumber    = 22
  1024.    name       = 'fmWoodDrum'
  1025.    info       = 'A FM instrument tuned to sound wood-drum-like.'
  1026.    pmtrFields = 6 # this is the base number
  1027.    pmtrInfo   = {} # holds discription, preset for each pmtr in a dictionary
  1028.    default    = {
  1029.                  'rhythmQ' : ('loop', ((8,3,1),(8,3,1),(8,3,1),(8,1,0),(4,1,1),(4,1,1),(8,1,1),(8,1,0))) ,
  1030.                  'octQ'    : ('basketGen', 'randomChoice', (2,2)), 
  1031.                  'ampQ'    : ('cyclicGen', 'linearDown', 80.00, 81.00, 1.00) ,
  1032.                  'panQ'    : ('cyclicGen', 'linearDown', 0.20, 0.60, 0.08), 
  1033.                 }
  1034.    author     = '''
  1035. FMwoodDrum.orc from amsterdam catalog
  1036. ACCCI:     20_10_2.ORC
  1037. synthesis: FM(20),
  1038.            FM with dynamic spectral evolution (10)
  1039.            wood-drum settings(2)
  1040. source:    Chowning(1973)
  1041. coded:     jpg 8/92
  1042. ''' # attribution
  1043.    orcCode = '''
  1044. instr 22
  1045.    idur   = p3
  1046.    iamp   = ampdb(p4)
  1047.    ifenv  = 251                    ; wood drum settings:
  1048.    ifdyn  = 231                    ; amp and index envelopes see flow chart
  1049.    ifq1   = cpspch(p5)*16           ; N1:N2 is 80:55 = 16:11, imax=25
  1050.    if1    = 210                     ; duration = .2 sec
  1051.    ifq2   = cpspch(p5)*11
  1052.    if2    = 210                     ; same gen used by clar
  1053.    imax   = 25
  1054.    ipan   = p6
  1055.    
  1056.    aenv  oscili   iamp, 1/idur, ifenv             ; envelope
  1057.    adyn  oscili   ifq2*imax, 1/idur, ifdyn        ; dynamic
  1058.    amod  oscili   adyn, ifq2, if2                 ; modulator
  1059.    a1    oscili   aenv, ifq1+amod, if1            ; carrier
  1060.  
  1061.    aMixSig = a1
  1062. '''
  1063.    scoSample = '''
  1064. ;p1    p2    p3     p4    p5     p6     p7   
  1065. ;inst  start dur   amp    PCH    pan 
  1066. ;            idur  iamp   pch
  1067. ;i1    0     .2     76    3.00   .5  ; scale in wood drum...
  1068. ;i1    +     .     .      3.02    .
  1069. '''
  1070.  
  1071. #-----------------------------------------------------------------||||||||||||--
  1072. class instr30(instrShell):
  1073.    inumber     = 30
  1074.    name       = 'samplerUni'
  1075.    info       = 'A simple sampler that plays any number of single audio files. Audio files are given with a complete file path.'
  1076.    pmtrFields = 12 # this is the base number
  1077.    pmtrInfo   = {
  1078.                  'pmtr7'   : 'skip time',
  1079.                  'pmtr8'   : 'atack',
  1080.                  'pmtr9'   : 'release',
  1081.                  'pmtr10'  : 'reverb time',
  1082.                  'pmtr11'  : 'reverb gain',
  1083.                  'pmtr12'  : 'file path chooser',
  1084.                 } # holds discription, preset for each pmtr in a dictionary
  1085.    default    = {
  1086.                  'rhythmQ' : ('binaryAccent', ((9,6,1),(9,2,1)) ), 
  1087.                  'octQ'    : ('basketGen', 'randomChoice', (7,8)),
  1088.                  'ampQ'    : ('cyclicGen', 'linearDown', 2.00, 9.00, 0.25) ,
  1089.                  'panQ'    : ('cyclicGen', 'linearDown', 0.30, 0.70, 0.08), 
  1090.                  'pmtr7'   : ('constant', 0),
  1091.                  'pmtr8'   : ('cyclicGen', 'linearUp', .03, .10, .01),
  1092.                  'pmtr9'   : ('constant', 0.1),
  1093.                  'pmtr10'  : ('cyclicGen', 'linearUp', .5, 2.1, .2),
  1094.                  'pmtr11'  : ('cyclicGen', 'linearUp', .00, .50, .05),
  1095.                  'pmtr12'  : ('sampleSelect', ('drum01.aif', 'latch01.aif')),
  1096.                 }
  1097.    author     = 'athenaCL native' # attribution
  1098.    orcCode = '''
  1099. instr 30
  1100.    idur = p3
  1101.    iamp  = ampdb(p4)
  1102.    ifreq  = cpspch(p5)
  1103.  
  1104.    ipitch      = .5
  1105.    ipan        = p6
  1106.    iskiptime   = p7
  1107.    iattack     = p8
  1108.    irelease    = p9
  1109.    irvbtime    = p10
  1110.    irvbgain    = p11
  1111.    ;use full pathnames for samples
  1112.    iSamplePath = p12  ; selects which sample
  1113.                   
  1114.    kamp        linen     iamp, iattack, idur, irelease
  1115.    asig        soundin   iSamplePath, iskiptime
  1116.  
  1117.    ;this doesnt work yet
  1118.    ;asig       diskin    iSamplePath, ipitch, iskiptime, 0
  1119.  
  1120.    arampsig   = kamp * asig
  1121.    aeffect      reverb  asig, irvbtime
  1122.    arvbreturn = aeffect * irvbgain
  1123.  
  1124.    aMixSig    =  arampsig + arvbreturn
  1125. '''
  1126.    scoSample = '''
  1127. ; ins   strt    dur     amp(db) p5(pch) p6(pan) skip    atk     rel     rvbt    rvbgain  samplePath
  1128. i8   0       1       20      8.0     .0      0       .03     .1      1.5     .2       "/athenaCL/ATHssdir/drum01.aif"
  1129. i8   2       1       20      8.0     .3      0       .8      .1      1.3     .5       "/athenaCL/ATHssdir/drum01.aif"
  1130. i8   3.5     2.25    20      8.0     .5      0       .5      .1      2.1     .2       "/athenaCL/ATHssdir/latch01.aif"
  1131. '''
  1132.  
  1133. #-----------------------------------------------------------------||||||||||||--
  1134. class instr40(instrShell):
  1135.    inumber    = 40
  1136.    name       = 'pvocUni'
  1137.    info       = 'A simple pvoc instrument.'
  1138.    pmtrFields = 7
  1139.    pmtrInfo   = {
  1140.                  'pmtr7'   : 'pvc analysis file to use',
  1141.                 } # holds discription, preset for each pmtr in a dictionary
  1142.    default    = {
  1143.                  'rhythmQ' : ('loop', ((5, 6, 1), (5, 2, 0), (5, 11, 1), (5, 3, 1))), 
  1144.                  'octQ'    : ('basketGen', 'randomChoice', [7,8]),
  1145.                  'ampQ'    : ('cyclicGen', 'linearDown', 2.00, 9.00, 0.25),
  1146.                  'panQ'    : ('cyclicGen', 'linearDown', 0.30, 0.70, 0.08), 
  1147.                  'pmtr7'   : ('analysisSelect', ('drum01.pvc',)),
  1148.                 }
  1149.    author     = 'athenaCL native' # attribution
  1150.    orcCode = '''
  1151. instr 40
  1152.    idur  = p3
  1153.    iamp  = ampdb(p4)
  1154.    ifreq = cpspch(p5)
  1155.    ipan  = p6
  1156.  
  1157.    iAnalysisPath = p7  ;use full pathnames for analysis files
  1158.  
  1159.    kEnvelope      linseg  0, .05, 1, (p3-.10), 1, .05, 0     ;quick envelope
  1160.  
  1161.    kTimePosition  line   0, p3, p3      ;error if this is too large
  1162.    kFqMod         line   1, p3, 1
  1163.  
  1164.    asig           pvoc    kTimePosition, kFqMod, iAnalysisPath
  1165.  
  1166.    aMixSig =  kEnvelope * asig
  1167. '''
  1168.    scoSample = '''
  1169. '''
  1170.  
  1171.  
  1172.  
  1173.  
  1174.  
  1175.  
  1176.